The PntClient object contains the following methods:
The AddPointRecord method adds a point record to the PNT.
AddPointRecord(PointXML as String)
|
Parameter |
Required |
Description |
|---|---|---|
|
PointXML |
Yes |
The XML record of the point to add to the PNT. Notes: PointXML attribute values have character limits. If point configuration modification exceeds a given field length, a deterministic error will be raised. For example, updating a point description will fail if the provided description exceeds 24 characters. Attribute lengths vary. When applying XML attributes to a point configuration record, an empty PointIdLong and an empty PointId is accepted, as long as a valid FacilityId and UniformDataCode is present. |
All point attributes are not required for the AddPointRecord method; any unspecified attributes will be left blank. The XML should be in the same format that ReadPointRecord returns.
|
<CygNetPointRecord description="Vol Gas Today" pointid="00000123" pointidlong="CYG_DEMO_VGT" site="CYGDEMO" service="UIS" facilityid="CYGDEMO_GAS" ... /> |
Example
The following example adds a new point to the PNT. In the example below edtRecord.Text contains the points attributes in XML format.
|
Sub AddPoint() PntClient.AddPointRecord edtRecord.Text MsgBox "Point added End Sub |
The CancelPointRecordLock method cancels the edit lock on a point record.
CancelPointRecordLock(PointTag as String, PointXML as String)
|
Parameter |
Required |
Description |
|---|---|---|
|
PointTag |
Yes |
The point to be unlocked. |
|
PointXML |
Yes |
The point record XML of the locked point. |
The XML used should be the same as the XML obtained from the ReadPointRecordLock method.
Example
The following method unlocks a point so it can be edited by another user.
|
Sub CancelLock() PntClient.CancelPointRecordLock edtTag.Text, edtXML.Text MsgBox "Point unlocked" End Sub |
The Connect method connects the object to a service.
Connect(DomainSiteService As String)
| Parameter | Required | Description |
|---|---|---|
|
DomainSiteService |
Yes |
The [Domain]Site.Service to which to connect. A domain is optional. The service must be a valid PNT. |
Returns 0 if successful and a non-zero value if the connection failed.
Example
The following example connects the PntClient object to the CYGDEMO.PNT on domain 5410:
|
Sub PntConnect() 'Connect to a PNT Dim PntClient Set PntClient = CreateObject("CxPnt.PntClient") PntClient.Connect("[5410]CYGDEMO.PNT") End Sub |
The DeletePointRecord method deletes a point record.
DeletePointRecord(PointTag as String)
|
Parameter |
Required |
Description |
|---|---|---|
|
PointTag |
Yes |
The tag of the point to be deleted.
The point tag, in valid tag string format:
|
PointTag must be in one of the following formats:
If SITE.SERVICE::FACILITY.UDC is not unique the point will not be deleted.
Example
The following example illustrates the DeletePointRecord method using all three PointTag formats.
|
Sub DeletePoint() 'Delete a point using the specified method If delMethod = 0 Then PntClient.DeletePointRecord("CYGDEMO.UIS.00000240") Elseif delMethod = 1 Then PntClient.DeletePointRecord("CYGDEMO.UIS:CYG_METER_VGT") Elseif delMethod = 2 PntClient.DeletePointRecord("CYGDEMO.UIS::CYG _METER.VGT") End If
MsgBox "Done" End Sub |
The Disconnect method disconnects from the service.
Disconnect() As Short
Example
The following example disconnects from a PNT service.
|
Sub Disconnect() 'Disconnect from a PNT PntClient.Disconnect() End Sub |
The FinishBulkUpdates method disables bulk updating. Call this function after StartBulkUpdates once all updates have been completed.
FinishBulkUpdates()
This method disables bulk updating and makes the PNT flush changes to the disk after every point is updated. See the StartBulkUpdates method for more information about enabling bulk updating.
Example
The following example stops bulk updating.
|
Sub FinishBulk() PntClient.FinishBulkUpdates End SUb |
The GetActiveServices method retrieves a list of active PNT services running on the domain. The Connect function is not required.
GetActiveServices(Servicelist)
|
Parameter |
Required |
Description |
|---|---|---|
|
ServiceList |
Yes |
This variable stores the list of the active PNT services. |
Example
The following example gets a list of PNT services running on your network, and displays them in a listbox.
|
Sub GetActiveServices() Dim ServiceList Dim service
'Get a list of running services PntClient.GetActiveServices ServiceList
'Display the services in a listbox For Each service In ServiceList lboServiceList.AddString(service) Next End Sub |
The GetAttributeTable method returns the TRS table name of a table-driven point attribute.
GetAttributeTable(PointAttribute as String) As String
|
Parameter |
Required |
Description |
|---|---|---|
|
PointAttribute |
Yes |
The point attribute for which to return the associated TRS table. |
Example
The following method retrieves the TRS table associated with a given attribute.
|
Sub GetAttributeTable() Dim attTable attTable = PntClient.GetAttributeTable(edtAtt.Text) edtMessageBox.Text = attTable End Sub |
The GetCommentsForPoint method retrieves the comments for the point represented by the given PointTag. Supports the PNT Comment (COMMENT) extended security event. Also see Configuring Alarm Settings for more information.
GetCommentsForPoint(PointTag As String) As String
|
Parameter |
Required |
Description |
|---|---|---|
|
PointTag |
Yes |
The tag of the point from which to retrieve the comments.
The point tag, in valid tag string format:
|
Example
The following example gets the comments for the point 00000239 and then prints the comments to the console.
|
Sub GetComments() Dim PointTag Dim Comments
PointTag = "CYGDEMO.UIS.00000239" 'Make the call to GetCommentsForPoint. Comments = PntClient.GetCommentsForPoint(PointTag)
Call WScript.Echo(Comments) End Sub |
The GetConsoleData method returns the console text and display attributes as two 25x80 arrays of unsigned characters.
GetConsoleData(ByRef pText, ByRef pAttr) As Integer
| Parameter | Required | Description |
|---|---|---|
|
pText |
Yes |
A two-dimensional 25x80 array of console text attributes returned by this method. |
|
pAttr |
Yes |
A two-dimensional 25x80 array of console display attributes returned by this method. |
This method returns 0 if successful.
Example
The following example writes the console text and display attributes to a CSV file.
|
Sub Dim aryText, aryAttr, nRet nRet = PntClient.GetConsoleData(aryText, aryAttr)
' Write text attributes to CSV file Dim i, j, strMsg For i = 0 To UBound(aryText, 1) For j = 0 To UBound(aryText, 2) strMsg = strMsg + CStr(aryText(i, j)) + "," Next strMsg = strMsg + vbCr Next
dim fso, file Set fso = CreateObject("Scripting.FileSystemObject") Set file = fso.OpenTextFile("c:\console_text_attrs.csv", 2, True) file.WriteLine(strMsg) file.Close
strMsg = ""
' Write display attributes to CSV file For i = 0 To UBound(aryAttr, 1) For j = 0 To UBound(aryAttr, 2) strMsg = strMsg + CStr(aryAttr(i, j)) + "," Next strMsg = strMsg + vbCr Next
Set file = fso.OpenTextFile("c:\console_disp_attrs.csv", 2, True) file.WriteLine(strMsg) file.Close
MsgBox nRet End Sub |
The GetCvsServiceList method returns the service names of all the current value services that are referenced by point records.
GetCvsServiceList(ServiceList as Array)
|
Parameter |
Required |
Description |
|---|---|---|
|
ServiceList |
Yes |
The list of current value services returned by this method. |
The returned service names will be in Site.Service format.
Example
The following example retrieves all the current value services the point records are associated with and stores them in a list box.
|
Sub GetCvsList() Dim CvsList Dim cvs
'Get a list of CVSes associated with the PNT service PntClient.GetCvsServiceList CvsList
'Store each CVS in a list box For Each cvs In CvsList lboCvs.AddString(cvs) Next End Sub |
The GetDefaultPointRecord method returns the default point record in XML format.
GetDefaultPointRecord() As String
The string is returned as XML. The following is an example of an excerpt of the XML returned by this method.
|
<CygNetPointRecord lock_user="" lock_time="0" description="" pointid="" pointidlong="" site="" service="" facilityid="" uniformdatacode="" systemname="N/A" pointdatatype="AI" initialtype="R" initialvalue="" minsetpoint="0" ... /> |
Example
The following example retrieves the default point record and saves it to an XML document.
|
Sub GetDefaultRecord() 'Get point record Dim strInfo strInfo = PntClient.GetDefaultPointRecord
'Save XML Set xmlDoc = CreateObject("Msxml2.DOMDocument") xmlDoc.loadXML(strInfo) xmlDoc.save("C:\DefaultPointRecord.xml") End Sub |
The GetDefaultPointScheme method returns the default point scheme. See Point Scheme for more information.
GetDefaultPointScheme() As Integer
The method returns the numeric identifier for the default point scheme that will be used in the creation of all points if not specified in the PointXML string. If the SetDefaultPointScheme method has not been called, the GetDefaultPointScheme method will return the point scheme from the CVS Metadata file with the lowest numeric identifier.
Example
The following example retrieves the default point scheme number and displays it in an edit box.
|
Sub GetDefaultScheme() Dim iScheme iScheme = PntClient.GetDefaultPointScheme edtScheme.Text = "The default point scheme is " & iScheme End Sub |
The GetEmptyPointXml method returns the XML for an empty point.
GetEmptyPointXml() As String
This method can be used in the process of creating a new point. After the empty record XML is retrieved, use the SetPointXMLAttribute method to set the new point record values. Then use the UpdatePointRecord method to created the new facility from the XML string created by the SetPointXMLAttribute method.
The string is returned as XML. The following is an example of what this method will return.
|
<CygNetPointRecord/> |
Example
The following example retrieves the XML for an empty point and saves it to an XML document.
|
Sub GetEmptyXml() 'Get point xml Dim strInfo strInfo = PntClient.GetEmptyPointXml
'Save XML Set xmlDoc = CreateObject("Msxml2.DOMDocument") xmlDoc.loadXML(strInfo) xmlDoc.save("C:\EmptyPoint.xml") End Sub |
The GetFacilitiesList method returns the list of facilities associated with the specified CVS service.
GetFacilitiesList(SiteService as String, FacilityList as Array)
|
Parameter |
Required |
Description |
|---|---|---|
|
SiteService |
Yes |
The Site.Service of the current value service associated with the PNT service. |
|
FacilityList |
Yes |
The list of facilities returned by this method. |
Example
The following example retrieves the list of facilities associated with CYGDEMO.UIS and displays it in a list box.
|
Sub GetFacilities() Dim FacList Dim fac
'Get a list of facilities associated with the PNT PntClient.GetFacilitiesList "CYGDEMO.UIS", FacList
'Store the facilites in a listbox For Each fac In FacList lboFac.AddString(fac) Next End Sub |
The GetPointAttributeList method returns an array of point attributes and their descriptions. If IsConnected property is used, the descriptions are based on the PNT metadata.
GetPointAttributeList(Attributes as Object)
|
Parameter |
Required |
Description |
|---|---|---|
|
Attributes |
Yes |
The list of point attributes returned by this method. |
Example
The following example retrieves the list of point attributes and displays it in a list box.
|
Sub GetAttributeList() Dim AttList Dim att
'Get a list of point attributes PntClient.GetPointAttributeList AttList
'Display attributes in a list box ''Set ListBox "VerticalScroll" to "1 - Always" For Each att In AttList lboAttributes.AddString(att) Next End Sub |
Note: Set the VerticalScroll property of the ListBox to "1 - Always" so that you can scroll the long list of attributes.
The GetPointXMLAttribute method returns the value of an attribute from a point record.
GetPointXMLAttribute(PointXML as String, PointAttribute as String) As String
|
Parameter |
Required |
Description |
|---|---|---|
|
PointXML |
Yes |
The point record XML from which to retrieve the attribute value. |
|
PointAttribute |
Yes |
The name of the attribute to retrieve. This parameter must specify an attribute that exists in PointXML. If the specified attribute does not exist in PointXML, this method will return an empty string. |
See GetPointAttributeList method, which returns listing of all point attributes.
Example
The following example retrieves a point attribute and displays it in an edit box.
|
Sub GetXMLAttribute() Dim Attribute Attribute = PntClient.GetPointXMLAttribute(edtXML.Text, edtAtt.Text) edtMessageBox.Text = Attribute End Sub |
The GetQuestionableStateAndLastChangeDateTimeForPoint method gets Questionable State and the last time the questionable state changed for the given Point. Supports the PNT Questionable State (QUESTION) extended security event.
See Questionable flag and Configuring Alarm Settings for more information.
GetQuestionableStateAndLastChangeDateTimeForPoint (PointTag As String, ByRef PointIsQuestionable As Boolean, ByRef LastQuestionableChangeDateTime As Date)
|
Parameter |
Required |
Description |
|---|---|---|
|
PointTag |
Yes |
The tag that represents the point from which to retrieve the questionable state and last change date time. |
|
PointIsQuestionable |
Yes |
Whether or not the given point is in a questionable state. |
|
LastQuestionableChangeDateTime |
Yes |
The DateTime when the questionable state was last changed. Returned as 0 if the questionable state has never changed for this point. |
Example
The following example checks if point 00000239 is in a questionable state and when the state was last changed. If point 00000239 is in a questionable state a message is printed to the console.
|
Sub GetQuestionableStateAndLastChangeDateTimeForPoint() Dim PointTag : PointTag = "CYGDEMO.UIS.00000239" Dim PointIsQuestionable, LastQuestionableChangeDateTime
'Make the call to GetQuestionableStateAndLastChangeDateTimeForPoint Call PntClient.GetQuestionableStateAndLastChangeDateTimeForPoint(PointTag, PointIsQuestionable, LastQuestionableChangeDateTime)
If (PointIsQuestionable) Then Call WScript.Echo("Point with PointTag " & PointTag & " is in a Questionable State!") End If End Sub |
The GetQuestionableStateForPoint method retrieves whether or not the point represented by the given PointTag is in a questionable state. Supports the PNT Questionable State (QUESTION) extended security event.
See Questionable flag and Configuring Alarm Settings for more information.
GetQuestionableStateForPoint(PointTag As String) As Boolean
|
Parameter |
Required |
Description |
|---|---|---|
|
PointTag |
Yes |
The tag of the point from which to retrieve the questionable state. |
Example
The following example checks if point 00000239 is in a questionable state. If point 00000239 is in a questionable state a message is printed to the console.
|
Sub GetQuestionableState() Dim PointTag Dim IsPointQuestionable
PointTag = "CYGDEMO.UIS.00000239"
'Make the call to GetQuestionableStateForPoint. IsPointQuestionable = PntClient.GetQuestionableStateForPoint(PointTag)
If (IsPointQuestionable) Then Call WScript.Echo("Point with PointTag " & PointTag & " is in a questionable state!") End If End Sub |
The GetQuestionableStateLastChangeDateTimeForPoint method retrieves the DateTime when the questionable state last changed for the point represented by the given PointTag. Returns 0 if no change was ever made to questionable state for the given point. Supports the PNT Questionable State (QUESTION) extended security event.
See Questionable flag and Configuring Alarm Settings for more information.
GetQuestionableStateLastChangeDateTimeForPoint(PointTag As String) As Date
|
Parameter |
Required |
Description |
|---|---|---|
|
PointTag |
Yes |
The tag of the point from which to retrieve the last questionable state change DateTime. |
Example
The following example retrieves the questionable state last change DateTime for point 00000239. If point 00000239 ever had it’s questionable state changed, then a message is printed to the console.
|
Sub GetQuestionableStateLastChangeDateTime() Dim PointTag Dim QuestionableStateLastChangeDateTime
PointTag = "CYGDEMO.UIS.00000239"
'Make the call to GetQuestionableStateLastChangeDateTimeForPoint. QuestionableStateLastChangeDateTime = PntClient.GetQuestionableStateLastChangeDateTimeForPoint(PointTag)
If (QuestionableStateLastChangeDateTime <> 0) Then Call WScript.Echo("The questionable state flag was last changed on " & QuestionableStateLastChangeDatetime & " for Point with Point Tag " & PointTag) End If End Sub |
The GetReferences method refreshes the list of services referenced by the connected service.
GetReferences() As Integer
Example
The following example refreshes the list referenced services.
|
Sub GetReferences() PntClient.GetReferences() End Sub |
The GetSuppressAlarmsAndEndConditionsForPoint method gets whether or not to suppress alarms for the given point along with the current end conditions for the given point. Supports the PNT Alarm Suppression (ALMSUPP) extended security event.
See Suppressing Alarms and Configuring Alarm Settings for more information.
GetSuppressAlarmsAndEndConditionsForPoint (PointTag As String, ByRef SuppressAlarms as Boolean, ByRef SuppressAlarmsEndOnNormal As Boolean, ByRef SuppressAlarmsEndDateTime As Date)
|
Parameter |
Required |
Description |
|---|---|---|
|
PointTag |
Yes |
The tag of the point that represents the point from which to retrieve alarm suppression and end conditions. |
|
SuppressAlarms |
Yes |
Whether or not alarm suppression is enabled for this point. |
|
SuppressAlarmsEndOnNormal |
Yes |
Whether or not alarm suppression ends when the point state becomes 'Normal.' |
|
SuppressAlarmsEndDateTime |
Yes |
The DateTime when alarm suppression will end. Returned as 0 if suppress alarms doesn’t have an end DateTime. |
Example
The following example retrieves the current end conditions for alarm suppression for point 00000239. If point 00000239 has alarm suppression ending on point state of 'Normal' and/or there is an end DateTime configured for point 00000239, then a message is printed to the console.
|
Sub GetSuppressAlarmsAndEndConditionsForPoint() Dim PointTag : PointTag = "CYGDEMO.UIS.00000239" Dim SuppressAlarms, SuppressAlarmsEndOnNormal, SuppressAlarmsEndDateTime
'Make the call to GetSuppressAlarmsAndEndConditionsForPoint Call PntClient.GetSuppressAlarmsAndEndConditionsForPoint(PointTag, SuppressAlarms, SuppressAlarmsEndOnNormal, SuppressAlarmsEndDateTime)
If (SuppressAlarms) Then Call WScript.Echo("Alarm Suppression is enabled for Point with PointTag: " & PointTag) End If End Sub |
The GetSuppressAlarmsEndDateTimeForPoint method retrieves the DateTime when alarm suppression ends for the point represented by the given PointTag. Returns 0 if an end DateTime was never configured for this Point. Supports the PNT Alarm Suppression (ALMSUPP) extended security event.
See Suppressing Alarms and Configuring Alarm Settings for more information.
GetSuppressAlarmsEndDateTimeForPoint(PointTag As String) As Date
|
Parameter |
Required |
Description |
|---|---|---|
|
PointTag |
Yes |
The tag of the point from which to retrieve the DateTime when alarm suppression ends (SuppressAlarmsEndDateTime). |
Example
The following example retrieves the end DateTime for alarm suppression for point 00000239. If there is an end DateTime configured for point 00000239, then a message is printed to the console.
|
Sub GetSuppressAlarmsEndDateTime() Dim PointTag Dim SuppressAlarmsEndDateTime
PointTag = "CYGDEMO.UIS.00000239"
'Make the call to GetSuppressAlarmsEndDateTimeForPoint. SuppressAlarmsEndDateTime = PntClient.GetSuppressAlarmsEndDateTimeForPoint(PointTag)
If (SuppressAlarmsEndDateTime <> 0) Then Call WScript.Echo("Suppressed alarms end at DateTime " & SuppressAlarmsEndDateTime & " for Point with PointTag " & PointTag) End If End Sub |
The GetSuppressAlarmsEndOnNormalForPoint method retrieves whether or not alarm suppression ends when a point's state becomes 'Normal' for the point represented by the given PointTag. Supports the PNT Alarm Suppression (ALMSUPP) extended security event.
See Suppressing Alarms and Configuring Alarm Settings for more information.
GetSuppressAlarmsEndOnNormalForPoint(PointTag As String) As Boolean
|
Parameter |
Required |
Description |
|---|---|---|
|
PointTag |
Yes |
The tag of the point from which to retrieve whether alarm suppression ends when the point's state becomes 'Normal'. (SuppressAlarmsEndOnNormal). |
Example
The following example checks if point 00000239 has alarm suppression ending on point state of 'Normal'. If point 00000239 has alarm suppression ending on point state of 'Normal', then a message is printed to the console..
|
Sub GetSuppressAlarmsEndOnNormal() Dim PointTag Dim SuppressAlarmsEndOnNormal
PointTag = "CYGDEMO.UIS.00000239"
'Make the call to GetSuppressAlarmsEndOnNormalForPoint. SuppressAlarmsEndOnNormal = PntClient.GetSuppressAlarmsEndOnNormalForPoint(PointTag)
If (SuppressAlarmsEndOneNormal) Then Call WScript.Echo("Suppressed alarms end on point state of 'Normal' for point with PointTag " & PointTag) End If End Sub |
The ReadAlarmSettingsForPoint method retrieves whether alarms are suppressed for the point represented by the given PointTag. Supports the PNT Alarm Suppression (ALMSUPP) extended security event.
See Suppressing Alarms and Configuring Alarm Settings for more information.
GetSuppressAlarmsForPoint(PointTag As String) As Boolean
|
Parameter |
Required |
Description |
|---|---|---|
|
PointTag |
Yes |
The tag of the point from which to retrieve the SuppressAlarms state. |
Example
The following example checks if point 00000239 has alarm suppression enabled. If alarm suppression is enabled, then a message is printed to the console.
|
Sub GetSuppressAlarms() Dim PointTag Dim SuppressAlarms
PointTag = "CYGDEMO.UIS.00000239"
'Make the call to GetSuppressAlarmsForPoint. SuppressAlarms = PntClient.GetSuppressAlarmsForPoint(PointTag)
If (SuppressAlarms) Then Call WScript.Echo("Alarms are being suppressed for point with PointTag " & PointTag) End If End Sub |
The GetTableDrivenAttributeList method retrieves a list of the point attributes whose legal values are derived from TRS tables.
GetTableDrivenAttributeList(Attributes)
|
Parameter |
Required |
Description |
|---|---|---|
|
Attributes |
Yes |
The list of table-driven attributes returned by this method. |
Associated table names are returned by the GetAttributeTable method.
Example
The following example retrieves the list of table-driven attributes.
|
Sub GetTableDrivenAttributes Dim TDList Dim attribute
PntClient.GetTableDrivenAttributeList TDList
For Each attribute In TDList lboTD.AddString(attribute) Next End Sub |
The IsPointIdLongAvailable method returns true if a point ID is available and unique to the given Site and Service.
IsPointIdLongAvailable(SiteService as String, PointIDLong as String) As Boolean
|
Parameter |
Required |
Description |
|---|---|---|
|
SiteService |
Yes |
The Site.Service of the point to be evaluated. |
|
PointIDLong |
Yes |
The long ID of the point to be evaluated. |
Example
The following example returns a Boolean value indicating whether or not a Point ID is available.
|
Sub isLongIDAvailable() 'Get data for the needed variables Dim siteService Dim PointIDLong siteService = "CYGDEMO.UIS" PointIDLong = edtLongId.Text 'ex. CYG_METER_TGAS
'Test to see if the point is available If PntClient.IsPointIdLongAvailable(siteService, PointIDLong) <> True Then edtMessageBox.Text = "Long ID: " & PointIDLong & " is already in use." Else edtMessageBox.Text = "Long ID: " & PointIDLong & " is available." End If End Sub |
The IsValidPointXML method validates the given PointXML. Returns true if the given PointXML is valid. Returns false and the first error encountered if the validation fails.
IsValidPointXML(PointXML As String, Error As Object) As Boolean
|
Parameter |
Required |
Description |
|---|---|---|
|
PointXML |
Yes |
The point record XML string to validate. |
|
Error |
Yes |
The first error that occurs while validating the PointXML. |
Example
The following example sets up an invalid point xml string and then checks if the point xml is valid. Since the point xml is invalid, a message will be printed to the console.
|
Sub ValidatePointXML() Dim PointXML Dim ReturnedError Dim IsValidPointXml
PointXML = PntClient.GetDefaultPointRecord() PointXML = PntClient.SetPointXMLAttribute(PointXML, "pointdatatype", "ThisWillFailValidation")
'Make the call to IsValidPointXML. IsValidPointXML = PntClient.IsValidPointXML(PointXML, ReturnedError)
If (Not IsValidPointXML) Then Call WScript.Echo("PointXML Validation failed with error: " & ReturnedError) End If End Sub |
The ReadAlarmSettingsForPoint method retrieves the alarm settings specific PointXML for the Point represented by the given PointTag. Supports the PNT Alarm Settings (ALARMSET) and Alarm Settings CfgBits (CFGBITxx) extended security events.
Also see Configuring Alarm Settings for more information.
ReadAlarmSettingsForPoint(PointTag As String) As String
|
Parameter |
Required |
Description |
|---|---|---|
|
PointTag |
Yes |
The tag of the point from which to retrieve the alarm settings specific PointXML. |
Example
The following example retrieves the alarm settings specific point xml. If the alarm category is set to a value in the point xml, then a message is printed to the console.
|
Sub ReadAlarmSettings() Dim PointTag Dim PointXML Dim AlarmCategory
PointTag = "CYGDEMO.UIS.00000239"
"Make the call to ReadAlarmSettingsForPoint. PointXML = PntClient.ReadAlarmSettingsForPoint(PointTag) AlarmCategory = PntClient.GetPointXMLAttribute(PointXML, "alarmcategory")
If (AlarmCategory <> "") Then Call WScript.Echo("The AlarmCategory is " & AlarmCategory & " for Point with PointTag " & PointTag) End If End Sub |
The ReadEnhancedAlarmConfig method reads the enhanced alarm configuration for the Point represented by the given PointTag.
Also see Enhanced Alarm Configuration for more information.
ReadEnhancedAlarmConfig(ByVal PointTag As String) As String
|
Parameter |
Required |
Description |
|---|---|---|
|
PointTag |
Yes |
The tag of the point from which to retrieve an XML string representing the point’s enhanced alarm configuration. |
|
Return value (String) |
n/a |
Returns a blank string or an XML string containing the point’s enhanced alarm configuration. |
If the provided PointTag is invalid or the specified point does not exist, a script error is generated with details of the problem. Connect() must be called prior to calling this function. The User ID must have READ permissions to the point record via the ACCESS and/or ALARMSET security events. See Point Service (PNT) Security for more information.
Example
The following example reads a point’s enhanced alarm configuration XML and displays it on a message box. If a script error is generated, the reason for the error is displayed.
|
Dim cxPnt Set cxPnt = createobject("CxPnt.PntClient")
Dim iRet iRet = cxPnt.Connect("CYGNET.PNT") If iRet <> 0 Then MsgBox "Connect failed with " & iRet Else On Error Resume Next Dim strXml strXml = cxPnt.ReadEnhancedAlarmConfig("CYGNET.UIS:FAC01_UDC01")
If err.number <> 0 Then MsgBox "ReadEnhancedAlarmConfig failed: " & err.description Else MsgBox strXml End If On Error Goto 0 End If |
The ReadPointRecord method returns the XML record for a point, wihtout locking the record for update. By default, the attributes are in lowercase when reading the XML using ReadPointRecord, and the first value for an attribute, regardless of its case, is used in the functions that modify the point records. When manipulating a point record XML directly (i.e. by not using SetPointXMLAttribute), make sure the attributes always use lowercase.
ReadPointRecord(PointTag as String) As String
|
Parameter |
Required |
Description |
|---|---|---|
|
PointTag |
Yes |
The tag of the point from which to retrieve attributes. |
PointTag must be SITE.SERVICE.POINTID, SITE.SERVICE:POINTIDLONG, or SITE.SERVICE::FACILITY.UDC
The record will be returned in XML. The following is an example of an excerpt of the XML returned by this method.
|
<CygNetPointRecord lock_user="VSI\" lock_time="0" description="Vol Gas Today" pointid="00000123" pointidlong="CYG_DEMO_VGT" site="CYGDEMO" service="UIS" facilityid="CYGDEMO_GAS" ... /> |
Example
The following example retrieves the record for a point and saves it to an XML file.
|
Sub GetXML() 'Get point xml Dim Record Record = PntClient.ReadPointRecord(edtTag.Text)
'Save XML Set xmlDoc = CreateObject("Msxml2.DOMDocument") xmlDoc.loadXML(Record) xmlDoc.save("C:\PointRecord.xml") End Sub |
The ReadPointRecordLock method returns the XML record for a point including lock information and locks the record for update.
ReadPointRecordLock(PointTag as String) As String
|
Parameter |
Required |
Description |
|---|---|---|
|
PointTag |
Yes |
The tag of the point from which to retrieve a record. |
The XML string returned by this function can be used to cancel a record lock using the CancelPointRecordLock method.
Example
The following method stores the XML of a point, including information about the point lock.
|
Sub ReadRecordLock() Dim Record Record = PntClient.ReadPointRecordLock(edtTag.Text) End Sub |
The ReadScriptText method returns the script text of a point.
ReadScriptText(PointTag as String) As String
|
Parameter |
Required |
Description |
|---|---|---|
|
PointTag |
Yes |
The tag of the point from which to retrieve text. |
Example
The following example retrieves the script text from a point and stores it in a variable.
|
Sub ReadScript() Dim Script Script = PntClient.ReadScriptText(edtTag.Text) End Sub |
The SaveEnhancedAlarmConfig method saves the enhanced alarm configuration for the Point represented by the given PointTag.
Also see Enhanced Alarm Configuration for more information.
SaveEnhancedAlarmConfig(ByVal PointTag As String, ByVal ConfigXml As String)
|
Parameter |
Required |
Description |
|---|---|---|
|
PointTag |
Yes |
The tag of the point to which to save the provided XML string representing the new enhanced alarm configuration. |
|
ConfigXml |
Yes |
The enhanced alarm configuration XML string to save. |
Calling SaveEnhancedAlarmConfig() with an empty string (e.g., ConfigXml = "") clears the Enhanced Alarm Configuration stored for a point. If the provided PointTag is invalid or the specified point does not exist, a script error is generated with details of the problem. If the format or content of the XML string is invalid, an error is generated summarizing the number or errors and warnings encountered. Call ValidateEnhancedAlarmConfigXml() to retrieve details of the errors and warnings. Connect() must be called prior to calling this function. The CygNet user ID must have UPDATE permissions to the point record via the ACCESS and/or ALARMSET security events. See Point Service (PNT) Security for more information.
Example
The following example reads one point’s enhanced alarm configuration XML and copies it to another point. If a script error is generated, the reason for the error is displayed.
|
Dim cxPnt Set cxPnt = createobject("CxPnt.PntClient")
Dim iRet iRet = cxPnt.Connect("CYGNET.PNT") If iRet <> 0 Then MsgBox "Connect failed with " & iRet Else On Error Resume Next Dim strXml strXml = cxPnt.ReadEnhancedAlarmConfig("CYGNET.UIS:FAC01_UDC01")
If err.number <> 0 Then MsgBox "ReadEnhancedAlarmConfig failed: " & err.description Else Call cxPnt.SaveEnhancedAlarmConfig("CYGNET.UIS:FAC02_UDC01", strXml) If err.number <> 0 Then MsgBox "SaveEnhancedAlarmConfig failed: " & err.description Else MsgBox "SaveEnhancedAlarmConfig succeeded" End if End If On Error Goto 0 End If |
The SaveScriptText method saves the specified HyperPoint script to a specified point.
SaveScriptText(PointTag as String, ScriptText as String) As String
|
Parameter |
Required |
Description |
|---|---|---|
|
PointTag |
Yes |
The tag of the point to update. |
|
ScriptText |
Yes |
The HyperPoint script text to save to the point record. |
This method will fail if the specified PointTag does not resolve to a HyperPoint.
The following is an example of a script that can be saved to a point. {{HYPERPOINT}} is translated to the long point ID when the script is loaded. If the long point ID is changed, the function won’t be called anymore.
|
Sub {{HYPERPOINT}}_OnInitializeEx(This) Timer.Set this, 300 End Sub
Sub {{HYPERPOINT}}_OnTimer(This) This.value = formatdatetime(now(), 3) End Sub |
Example
The following example saves a HyperPoint script to a point.
|
Sub SaveScript() PntClient.SaveScriptText edtTag.Text, strScript MsgBox "Script saved!" End Sub |
The SetCommentsForPoint method sets the comments for the point represented by the given PointTag. Supports the PNT Comment (COMMENT) extended security event. Also see Configuring Alarm Settings for more information.
SetCommentsForPoint(PointTag As String, PointComments As String)
|
Parameter |
Required |
Description |
|---|---|---|
|
PointTag |
Yes |
The tag of the point for which to set the comments. |
|
PointComments |
Yes |
The comments to store in the point record represented by the given PointTag. |
Example
The following example sets the comments for the specified point.
|
Sub SetComments() Dim PointTag Dim Comments
PointTag = "CYGDEMO.UIS.00000239"
Comments = "This is a test Comments string." 'Make the call to SetCommentsForPoints. Call PntClient.SetCommentsForPoint(PointTag, Comments) End Sub |
The SetDefaultPointScheme method sets the default point scheme used to create new points (for the current instance of the object) when creating a new point via the CxPNT automation interface. See Point Scheme for more information.
SetDefaultPointScheme(PointScheme as Integer)
|
Parameter |
Required |
Description |
|---|---|---|
|
PointScheme |
Yes |
A zero-based integer corresponding to the item number in the Point Scheme list box. 0 is the CygNet Standard Point Scheme. |
This method will fail if the specified PointScheme is not in the CVS Metadata file.
Example
The following example sets the default point scheme.
|
Sub SetPointScheme() Dim iPointScheme iPointScheme = edtScheme.Text PntClient.SetDefaultPointScheme() End Sub |
The SetPointXMLAttribute method sets an attribute value of a specified point record.
SetPointXMLAttribute(PointXML as String, PointAttribute as String, AttributeValue as String) As String
|
Parameter |
Required |
Description |
|---|---|---|
|
PointXML |
Yes |
The point record XML with which to set an attribute. Notes: PointXML attribute values have character limits. If point configuration modification exceeds a given field length, a deterministic error will be raised. For example, updating a point description will fail if the provided description exceeds 24 characters. Attribute lengths vary. When applying XML attributes to a point configuration record, an empty PointIdLong and an empty PointId is accepted, as long as a valid FacilityId and UniformDataCode is present. |
|
PointAttribute |
Yes |
The attribute for which to set a value. |
|
AttributeValue |
Yes |
The new value of the attribute. |
This method creates a new XML string containing updated point attribute values to be used either by the UpdatePointRecord method for a single point record or the UpdateAttributesForPoints method for updating multiple point records.
See GetPointAttributeList method, which returns listing of all point attributes. SetPointXMLAttribute sets the attribute name to lowercase before modifying the XML.
Example
The following example creates a new XML string with the new point attribute value, but doesn’t update the point itself.
|
Sub SetPointXML() Dim newPoint newPoint = PntClient.SetPointXMLAttribute (XML, edtAtt.Text, edtValue.Text) edtMessageBox.Text = newPoint End Sub |
The SetQuestionableStateForPoint method sets whether or not the point represented by the given PointTag is in a questionable state. Supports the PNT Questionable State (QUESTION) extended security event.
See Questionable flag and Configuring Alarm Settings for more information.
SetQuestionableStateForPoint(PointTag As String, PointIsQuestionable As Boolean, [ReasonForChange As String])
|
Parameter |
Required |
Description |
|---|---|---|
|
PointTag |
Yes |
The tag of the point for which to set the questionable state. |
|
PointIsQuestionable |
Yes |
Whether to mark the point as being in a questionable state. |
|
ReasonForChange |
No |
The reason why the point should/should not be marked as questionable. Using this parameter requires the connected PNT’s configuration to have an Associated AUD Service and an Audit Level greater than 0. |
Example
The following example puts point 00000239 into a questionable state.
|
Sub SetQuestionableState() Dim PointTag Dim IsPointQuestionable Dim ReasonForChange
PointTag = "CYGDEMO.UIS.00000239"
IsPointQuestionable = True ReasonForChange = "This is just a test."
'Make the call to SetQuestionableStateForPoint. Call PntClient.SetQuestionableStateForPoint(PointTag, IsPointQuestionable, ReasonForChange) End Sub |
The StartBulkUpdates method enables faster updating by increasing the performance of several updates in a row.
StartBulkUpdates()
Normally, the PNT will flush the changes to the disk after each point is updated. If Bulk Updating is enabled, it will only flush every thirty seconds. This decreases the update time but increases the likelihood that data will be lost if a bad shutdown occurs. CygNet recommends that this feature only be turned on while bulk updating occurs and then turned off when finished.
Example
The following example enables Bulk Updating.
|
Sub StartBulkUpdates() PntClient.StartBulkUpdates() MsgBox "PNT Client has started bulk updating." End Sub |
The SuppressAlarmsAndSetEndConditionsForPoint method suppress alarms for the given point with the given end conditions. If the SuppressAlarmsEndOnDateTime parameter is false, then the SuppressAlarmsEndDateTime parameter is ignored. Supports the PNT Alarm Suppression (ALMSUPP) extended security event.
See Suppressing Alarms and Configuring Alarm Settings for more information.
SuppressAlarmsAndSetEndConditionsForPoint(PointTag As String, SuppressAlarmsEndOnNormal As Boolean, SuppressAlarmsEndOnDateTime As Boolean, SuppressAlarmsEndDateTime As Date)
|
Parameter |
Required |
Description |
|---|---|---|
|
PointTag |
Yes |
The tag of the point that represents the point for which to enable alarm suppression. |
|
SuppressAlarmsEndOnNormal |
Yes |
Whether to end alarm suppression when the point state becomes 'Normal.' |
|
SuppressAlarmsEndOnDateTime |
Yes |
Whether to end alarm suppression on the specified DateTime. If this is set, then SuppressAlarmsEndDateTime must also be set to a valid DateTime. |
|
SuppressAlarmsEndDateTime |
No |
The DateTime to end alarm suppression on. If this is set, then SuppressAlarmsEndOnDateTime must be set to true. |
Example
The following example suppresses alarms for the point 00000239, ends the suppression when the point state becomes 'Normal', or ends the suppression one day from now, whichever comes first.
|
Sub SuppressAlarmsAndSetEndConditionsForPoint() Dim PointTag : PointTag = "CYGDEMO.UIS.00000239" Dim SuppressAlarmsEndOnNormal : SuppressAlarmsEndOnNormal = True Dim SuppressAlarmsEndOnDateTime : SuppressAlarmsEndOnDateTime = True Dim SuppressAlarmsEndDateTime : SuppressAlarmsEndDateTime = DateAdd("d", 1, Now()) 'End 1 day from now.
'Make the call to SuppressAlarmsAndSetEndConditionsForPoint Call PntClient.SuppressAlarmsAndSetEndConditionsForPoint(PointTag, SuppressAlarmsEndOnNormal, SuppressAlarmsEndOnDateTime, SuppressAlarmsEndDateTime) End Sub |
The SuppressAlarmsAndSetEndOnDateTimeForPoint method suppress alarms until the given date time for the given Point. If SuppressAlarmsEndOnDateTime is false, then the SuppressAlarmsEndDateTime parameter is ignored. Supports the PNT Alarm Suppression (ALMSUPP) extended security event.
See Suppressing Alarms and Configuring Alarm Settings for more information.
SuppressAlarmsAndSetEndOnDateTimeForPoint (PointTag As String, SuppressAlarmsEndOnDateTime As Boolean, SuppressAlarmsEndDateTime As Date)
|
Parameter |
Required |
Description |
|---|---|---|
|
PointTag |
Yes |
The tag of the point that represents the point for which to enable alarm suppression. |
|
SuppressAlarmsEndOnDateTime |
Yes |
Whether to end alarm suppression on the specified DateTime. If this is set, then SuppressAlarmsEndDateTime must also be set to a valid DateTime. |
|
SuppressAlarmsEndDateTime |
No |
The DateTime to end alarm suppression on. If this is set, then SuppressAlarmsEndOnDateTime must be set to true. |
Example
The following example suppresses alarms for the point 00000239, ending the suppression one day from now.
|
Sub SuppressAlarmsAndSetEndOnDateTimeForPoint() Dim PointTag : PointTag = "CYGDEMO.UIS.00000239" Dim SuppressAlarmsEndOnDateTime : SuppressAlarmsEndOnDateTime = True Dim SuppressAlarmsEndDateTime : SuppressAlarmsEndDateTime = DateAdd("d", 1, Now()) 'End 1 day from now.
'Make the call to SuppressAlarmsAndSetEndOnDateTimeForPoint Call PntClient.SuppressAlarmsAndSetEndOnDateTimeForPoint(PointTag, SuppressAlarmsEndOnDateTime, SuppressAlarmsEndDateTime) End Sub |
The SuppressAlarmsAndSetEndOnNormalForPoint method suppresses alarms and set whether or not to suppress alarms until Point State of 'Normal' for the given Point. Supports the PNT Alarm Suppression (ALMSUPP) extended security event.
See Suppressing Alarms and Configuring Alarm Settings for more information.
SuppressAlarmsAndSetEndOnNormalForPoint (PointTag As String, SuppressAlarmsEndOnNormal As Boolean)
|
Parameter |
Required |
Description |
|---|---|---|
|
PointTag |
Yes |
The tag of the point that represents the point for which to enable alarm suppression. |
|
SuppressAlarmsEndOnNormal |
Yes |
Whether to end alarm suppression when the point state becomes 'Normal.' |
Example
The following example suppresses alarms for the point 00000239, ending the suppression when the point state becomes 'Normal.'
|
Sub SuppressAlarmsAndSetEndOnNormalForPoint() Dim PointTag : PointTag = "CYGDEMO.UIS.00000239" Dim SuppressAlarmsEndOnNormal : SuppressAlarmsEndOnNormal = True
'Make the call to SuppressAlarmsAndSetEndOnNormalForPoint Call PntClient.SupppressAlarmsAndSetEndOnNormalForPoint(PointTag, SuppressAlarmsEndOnNormal) End Sub |
The UnsuppressAlarmsForPoint method removes all alarm suppression for the point represented by the given PointTag. Supports the PNT Alarm Suppression (ALMSUPP) extended security event.
See Suppressing Alarms and Configuring Alarm Settings for more information.
UnsuppressAlarmsForPoint(PointTag As String)
|
Parameter |
Required |
Description |
|---|---|---|
|
PointTag |
Yes |
The tag of the point for which to disable alarm suppression. |
Example
The following example removes all alarm suppression for the point 00000239.
|
Sub UnsuppressAlarms() Dim PointTag
PointTag = "CYGDEMO.UIS.00000239"
'Make the call to UnSuppressAlarmsForPoint. Call PntClient. UnSuppressAlarmsForPoint(PointTag) End Sub |
The UpdateAlarmSettingsForPoint method updates the alarm settings for the point represented by the given PointTag with the specified PointXML. The PointXML must only contain changes to alarm settings. Supports the PNT Alarm Settings (ALARMSET) and Alarm Settings CfgBits (CFGBITxx) extended security events.
Also see Configuring Alarm Settings for more information.
UpdateAlarmSettingsForPoint(PointTag As String, PointXML As String)
|
Parameter |
Required |
Description |
|---|---|---|
|
PointTag |
Yes |
The tag of the point from which to update the alarm settings. |
|
PointXML |
Yes |
The point record XML string containing the point Alarm Settings specific changes. Notes: PointXML attribute values have character limits. If point configuration modification exceeds a given field length, a deterministic error will be raised. For example, updating a point description will fail if the provided description exceeds 24 characters. Attribute lengths vary. When applying XML attributes to a point configuration record, an empty PointIdLong and an empty PointId is accepted, as long as a valid FacilityId and UniformDataCode is present. |
Example
The following example gets an empty point xml string. An alarm settings specific point xml attribute is then added to the previously empty point xml string (alarm category). The alarm category for point 00000239 is then updated by the call to UpdateAlarmSettingsForPoint.
|
Sub UpdateAlarmSettings() Dim PointTag Dim PointXML Dim AlarmCategory
PointTag = "CYGDEMO.UIS.00000239"
AlarmCategory = "TEST CAT" PointXML = PntClient.GetEmptyPointXML() PointXML = PntClient.SetPointXMLAttribute(PointXML, "alarmcategory", AlarmCategory)
'Make the call to UpdateAlarmSettingsForPoint. Call PntClient.UpdateAlarmSettingsForPoint(PointTag, PointXML) End Sub |
The UpdateAttributesForPoints method updates multiple point records with new values from an XML string.
UpdateAttributesForPoints(Tags as Object, PointXML as String, Errors as Object) As Integer
|
Parameter |
Required |
Description |
|---|---|---|
|
Tags |
Yes |
An array of the PointTags to be updated. |
|
PointXML |
Yes |
The point record XML string that contains the new point record values. Notes: PointXML attribute values have character limits. If point configuration modification exceeds a given field length, a deterministic error will be raised. For example, updating a point description will fail if the provided description exceeds 24 characters. Attribute lengths vary. When applying XML attributes to a point configuration record, an empty PointIdLong and an empty PointId is accepted, as long as a valid FacilityId and UniformDataCode is present. |
|
Errors |
Yes |
A list of errors returned by this method. |
This method updates multiple point records using the XML string returned by the SetPointXMLAttribute method.
For the PointXML used in this method, do not include an entire point record since the method updates multiple point records. The update would fail as a result of trying to create multiple instances of an identical point record. The XML string should only contain the attributes that you want to be set the same on all the points that are to be updated. The attributes that are not included in the XML string will not be updated when the method is called.
Example
The following example updates an array of points with given XML and displays the list of errors encountered in a list box.
|
Sub UpdateAttributes() Dim Tags(1) Dim Errors(1) Dim error
Tags(0) = "CYGDEMO.UIS.00000239" Tags(1) = "CYGDEMO.UIS.00000240"
PntClient.UpdateAttributesForPoints Tags, XML, errors
For Each error In Errors lboErrors.AddString(errors) Next End Sub |
The UpdatePointRecord method updates a single point record from an XML string.
UpdatePointRecord(PointTag as String, PointXML as String)
|
Parameter |
Required |
Description |
|---|---|---|
|
PointTag |
Yes |
The tag of the point to be updated. |
|
PointXML |
Yes |
The point record XML string containing the new point attribute values. Notes: PointXML attribute values have character limits. If point configuration modification exceeds a given field length, a deterministic error will be raised. For example, updating a point description will fail if the provided description exceeds 24 characters. Attribute lengths vary. When applying XML attributes to a point configuration record, an empty PointIdLong and an empty PointId is accepted, as long as a valid FacilityId and UniformDataCode is present. |
This method updates a single point record using the XML string returned by the SetPointXMLAttribute method.
PointTag must be SITE.SERVICE.POINTID, SITE.SERVICE:POINTIDLONG, or SITE.SERVICE::FACILITY.UDC
PointXML does not need to contain an entire point record. If an attribute is left out, it will not be updated when this method is called.
Example
The following example updates a point record with the modified XML stored in edtXML.
|
Sub UpdatePntRecord() PntClient.UpdatePointRecord Tag, edtXML.Text MsgBox "Point Updated" End Sub |
The ValidateEnhancedAlarmConfigXml method checks that the provided enhanced alarm configuration XML is valid in the context of the provided PointTag.
Also see Enhanced Alarm Configuration for more information.
ValidateEnhancedAlarmConfigXml(ByVal PointTag As String, ByVal ConfigXml As String, ByRef pvErrorList, ByRef pvWarningList) As Boolean
|
Parameter |
Required |
Description |
|---|---|---|
|
PointTag |
Yes |
The point tag used to establish the context of the enhanced alarm configuration conditions contained in the provided XML. For example, if a condition specifies <ThisFacility>, the Facility associated with the provided point tag will be used. |
|
ConfigXml |
Yes |
The enhanced alarm configuration XML string to validate. |
|
pvErrorList |
Yes |
The error list is assigned to an array of strings representing each of the errors encountered during validation. |
|
pvWarningList |
Yes |
The warning list is assigned to an array of strings representing each of the warnings encountered during validation. |
Returns True if the enhanced alarm configuration XML string provided is valid. Otherwise, False is returned and the error and warning string arrays are filled in accordingly. If the provided PointTag is invalid or the specified point does not exist, the function returns False and the details are stored in the list of errors. Connect() must be called prior to calling this function. There are no CygNet security checks performed when calling this function.
Example
The following example reads one point’s enhanced alarm configuration XML and validates it in the context of another point. If a script error is generated, the reason for the error is displayed. If errors or warnings are returned in the array variables, they are displayed one by one.
|
Dim cxPnt Set cxPnt = createobject("CxPnt.PntClient")
Dim iRet iRet = cxPnt.Connect("CYGNET.PNT") If iRet <> 0 Then MsgBox "Connect failed with " & iRet Else On Error Resume Next Dim strXml strXml = cxPnt.ReadEnhancedAlarmConfig("CYGNET.UIS:FAC01_UDC01")
If err.number <> 0 Then MsgBox "ReadEnhancedAlarmConfig failed: " & err.description Else Dim bIsValid Dim errorsOut Dim warningsOut
bIsValid = cxPnt.ValidateEnhancedAlarmConfigXml("CYGNET.UIS:FAC02_TBOARD", strXml, errorsOut, warningsOut) MsgBox "Validate() returned " & bIsValid & ": err(" & ubound(errorsOut)+1 & "), wrn(" & ubound(warningsOut)+1 & ")"
iErrCnt = 1 Dim strError For Each strError In errorsOut MsgBox "Error " & iErrCnt & "of " & ubound(errorsOut)+1 & ": " & strError iErrCnt = iErrCnt + 1 Next
iWarnCnt = 1 Dim strWarn For Each strWarn In warningsOut MsgBox "Warning " & iWarnCnt & "of " & ubound(warningsOut)+1 & ": " & strWarn iWarnCnt = iWarnCnt + 1 Next End If On Error Goto 0
End If |
|
|
|
